home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / WINWORDS / WINE02BX.ZIP / LISP / X11 / X-MOUSE.ELC < prev    next >
Text File  |  1993-03-28  |  5KB  |  49 lines
  1. ;;; compiled by @win386 on Sat Mar 13 14:27:23 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/x11/x-mouse.el
  3. ;;; emacs version 19.3 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┴!ê┬├!ê─╞╟#ê─╚╔#ç" [provide x-mouse require mouse define-key global-map button2 x-set-point-and-insert-selection (control button2) x-mouse-kill] 4)
  14. (fset 'x-mouse-kill #[(event) "`┴\n!ê`{─ !ê┼ !ê)╞`\")ç" [old-point mouse-set-point event s x-own-clipboard x-store-cutbuffer kill-region] 3 "\
  15. Kill the text between the point and mouse and copy it to the clipboard and
  16. to the cut buffer" "@e"])
  17. (fset 'x-insert-selection #[(&optional check-cutbuffer-p move-point-event) "½Å┴┬├Å«ï─ «ç┼╞!¬é╟     ½à╩    !ê╦`!êc)ç" [check-cutbuffer-p nil (x-get-selection) ((error)) x-get-cutbuffer error "No selection or cut buffer available" x-get-selection text move-point-event mouse-set-point push-mark] 3 "\
  18. Insert the current selection into buffer at point." nil])
  19. (fset 'x-set-point-and-insert-selection #[(event) "└┴\n\"ç" [x-insert-selection t event] 3 "\
  20. Sets point where clicked and insert the primary selection or the cut buffer" "e"])
  21. (fset 'mouse-track-and-copy-to-cutbuffer #[(event) "└    !ê\n¡Éè├\n!qê─┼\n!╞\n!{!)ç" [mouse-track event primary-selection-extent extent-buffer x-store-cutbuffer extent-start-position extent-end-position] 4 "\
  22. Makes a selection like `mouse-track', but also copies it to the cutbuffer." "e"])
  23. (defvar x-pointer-shape nil "\
  24. *The shape of the mouse-pointer when over text.
  25.  
  26. This string may be any of the standard cursor names from appendix B 
  27. of the Xlib manual (also known as the file <X11/cursorfont.h>) minus 
  28. the XC_ prefix, or it may be a font name and glyph index of the form 
  29. \"FONT fontname index [[font] index]\", or it may be the name of a
  30. bitmap file acceptable to XmuLocateBitmapFile().  If it is a bitmap
  31. file, and if a bitmap file whose name is the name of the cursor with
  32. \"msk\" exists, then it is used as the mask.  For example, a pair of
  33. files may be named \"cursor.xbm\" and \"cursor.xbmmsk\".")
  34. (defvar x-nontext-pointer-shape nil "\
  35. *The shape of the mouse-pointer when over a buffer, but not over text.  
  36. If this is nil, then `x-pointer-shape' is used.")
  37. (defvar x-mode-pointer-shape nil "\
  38. *The shape of the mouse-pointer when over the modeline.
  39. If this is nil, then either `x-nontext-pointer-shape' or `x-pointer-shape'
  40. will be used.")
  41. (defvar x-pointer-foreground-color nil "\
  42. *The foreground color of the mouse pointer.")
  43. (defvar x-pointer-background-color nil "\
  44. *The background color of the mouse pointer.")
  45. (byte-code "└┴Mê┬├Mê─┼!¼é╞╞ç" [x-track-pointer #[(event) "└    !ë½à├\n!¬é─ \n¡â╞\n!ë¡â╚    !ë    ¡ç╩    ╦#     ½â═¬Ñ½Ä½â╬¬Ü¡û═¬ô½â╧¬î½â╬¬à¡ü═╤╥╙Åê ½ê╘ ╒\"ê¬à╘╓ë\"ê½ä¡▓èqê╪┘!¡é┘Jë<½çó█=½å    !¬Æ¡Ä    !êAë¼s╓*.ç" [event-window event window window-screen selected-screen screen window-buffer buffer event-point point extent-at highlight extent x-pointer-shape x-nontext-pointer-shape x-mode-pointer-shape var c (byte-code "J½ê┴\nJ $ê┴ç" [var x-set-screen-pointer screen x-pointer-foreground-color x-pointer-background-color] 5) ((error (x-track-pointer-damage-control c var))) highlight-extent t nil mouse-grabbed-buffer boundp mode-motion-hook rest lambda] 5] x-track-pointer-damage-control #[(c var) "A@┴ÿ½î\n├Lê─┼\n╞8#çA@╟ÿ½Ñ╚    !¼ä╔¬Å╚\n!¼ä╩¬à─╦\"ê\n├Lê─╠\n╞8#ç@═=½«╬@J½ù@J;¼É@├Lê─╨@╞8#êAë¼[─╦\")ç╤@A\"ç" [c "unknown cursor" var nil error "%S was %S, which is an invalid X cursor name.  Reset." 2 "unrecognised color" x-valid-color-name-p x-pointer-foreground-color x-pointer-background-color "got %S and I don't know why!" "%S was %S, which is an invalid color name.  Reset." wrong-type-argument (x-pointer-foreground-color x-pointer-background-color x-pointer-shape x-nontext-pointer-shape x-mode-pointer-shape) rest "%S was %S, not a string.  Reset." signal] 6] boundp x-pointers-initialized nil] 2)
  46. (fset 'x-initialize-pointer-shape #[(screen) "?¡┐┴┬├─$«ü╞┴╚├─$«ü╔\n┴╦├─$«ü╠┴╬├─$«ü╧┴╤╥─$┴╘╒─$╫ëç" [x-pointers-initialized x-get-resource "textPointer" "Cursor" string screen "xterm" x-pointer-shape "spacePointer" "crosshair" x-nontext-pointer-shape "modeLinePointer" "sb_v_double_arrow" x-mode-pointer-shape "gcPointer" "watch" x-gc-pointer-shape "pointerColor" "Foreground" x-pointer-foreground-color "pointerBackground" "Background" x-pointer-background-color t] 5 "\
  47. Initializes the mouse-pointers of the given screen from the resource
  48. database."])
  49.